// Logs all AmIRC actions into Main (even internal ones!)
\\
// To run do /DwLOG
\\ or /Rx Rexx/DWaRFx/DWaRFLOG.AmIRX
//
\\ #DieHolly - to quit it (To quit it yourself /msg <yournick> #dieholly)
// #RedDwarf - to get a list of |DWaRFx-TNg| features
\\ # - To get a slap :)
//
\\
*/
;OPTIONS RESULTS;Parse Source . . drawer .;tmp=Pos('/',drawer);If tmp=0 Then tmp=Pos(':',drawer);Else tmp=Lastpos('/',drawer);drawer=Left(drawer,tmp);evnum=Substr(Address(),Pos('.',Address()));Call Setclip('DFxTIME'evnum,Time());"Say /me has started a |DWaRFLoG| - Options ->";"Say Type #DieHolly to quit the DWaRFLoG remotely";"Say Type #RedDwarf to get a list of "d2c(2)"|DWaRFx-TNG|"d2c(2)" features.";"Say Type # to get a slap.";meals="";If ~Open(1,drawer"DWaRFiNFO","R") Then exit;mnum=1;Do Forever;line=Upper(Readln(1));If line="" Then Leave;meal=Word(line,1);meals=meals" "meal;desc.mnum=Subword(line,2,Words(line));mnum=mnum+1;End;Close(1);Do Forever;"Getmynick";mynick=Result;Drop rest;Drop prefix;"Getline";rest=Upper(Line.rest);IF LEFT(rest,1)=":" THEN rest=RIGHT(rest,LENGTH(rest)-1);prefix=line.prefix;nick=Word(Translate(prefix,' ','!'),1);drink=Compress(rest,"#");"say DWaRFLoG: "drink;If Upper(rest)="#DIEHOLLY" Then Leave;If Upper(rest)="#REDDWARF" Then;Do;"RAW PRIVMSG "nick" :"D2c(2)"====> |DWaRFx-TNG| By Gaz & COolWAve <===="D2c(2);"RAW PRIVMSG "nick" :Features Of "d2c(2)"|DWaRFx-TNG|"d2c(2)" include the following ->";"RAW PRIVMSG "nick" :"D2c(2)" "D2c(2);Do loop=1 To Words(meals);meal=Word(meals,loop);"RAW NOTICE "nick" :"D2c(2)||meal||D2c(2)" "desc.loop;Call Time(R);Do until Time(E)>2;End;End;Drop rest;"RAW NOTICE "nick" :Get "d2c(2)"|DWaRFx-TNG|"d2c(2)" "d2c(22)" NOW "d2c(22)" - http://www.users.globalnet.co.uk/~gazy/";"RAW NOTICE "nick" :The "d2c(2)"BEST"d2c(2)" ARexx control center for AmIRC!";End;If Substr(rest,1,1)="#" then;do;If Find(meals,drink) ~=0 Then;Do;"Say /Me slaps "nick" - Courtesy of "d2c(2)"|DWaRFx-TNG|";End;Else;Do;"Say /msg "nick" Sorry the only commands I understand are #dieholly & #reddwarf";End;End;End;"Say /Me has stopped the |DWaRFLoG|.....";Exit